home *** CD-ROM | disk | FTP | other *** search
- -- card: 12386 from stack: in
- -- bmap block id: 11522
- -- flags: 4000
- -- background id: 10897
- -- name: Saving the Environment
- ----- HyperTalk script -----
- Endangered Air
- Ecocycles
- Ecocycles
-
-
- -- part 1 (button)
- -- low flags: 00
- -- high flags: 0001
- -- rect: left=0 top=0 right=38 bottom=40
- -- title width / last selected line: 0
- -- icon id / first selected line: 12553 / 12553
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name:
- ----- HyperTalk script -----
- on mouseUp
- exit mouseup
- end mouseUp
-
-
-
- -- part 2 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=410 top=0 right=51 bottom=512
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: goback
- ----- HyperTalk script -----
- on mouseUp
- pop card
- end mouseUp
-
-
-
- -- part 3 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=10 top=86 right=137 bottom=112
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Thrush
- ----- HyperTalk script -----
- on mouseUp
- play "thrush"
- end mouseUp
-
-
-
- -- part 4 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=302 top=120 right=303 bottom=477
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Gardening
- ----- HyperTalk script -----
- on mouseUp
- play "bird"
- dowindow "Gardening"
- end mouseUp
-
-
-
- -- part 5 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=18 top=164 right=210 bottom=105
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Water
- ----- HyperTalk script -----
- on mouseUp
- play "water"
- end mouseUp
-
-
-
- -- part 9 (field)
- -- low flags: 81
- -- high flags: 2004
- -- rect: left=113 top=158 right=275 bottom=324
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 512
- -- line height: 16
- -- part name: Kenyan Proverb
- ----- HyperTalk script -----
- on mouseup
- hide me
- end mouseup
-
-
- -- part 10 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=124 top=48 right=304 bottom=298
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Kenyan Proverb
- ----- HyperTalk script -----
- on mouseUp
- play "flute"
- set the visible of cd field "Kenyan Proverb" to not the visible of cd field "Kenyan Proverb"
- end mouseUp
-
-
-
- -- part 11 (button)
- -- low flags: 80
- -- high flags: 8004
- -- rect: left=315 top=10 right=44 bottom=405
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: test demo
- ----- HyperTalk script -----
- on mouseUp
- set cantmodify of this stack to true
- set usermodify to true
-
- set the hilite of bg btn info to true
- wait 15
- set the hilite of bg btn info to false
- play click
- TKdoPICT ("airinfopict,screen")
-
-
- set the loc of btn darkness to 144,308
- show btn "darkness"
- set the hilite of btn darkness to true
- wait 3
- set the loc of btn darkness to 144,292
- wait 3
- set the loc of btn darkness to 144,276
- wait 3
- set the loc of btn darkness to 144,260
- wait 3
- set the loc of btn darkness to 144,245
- wait 3
- set the loc of btn darkness to 144,229
- wait 3
- set the loc of btn darkness to 144,212
- wait 3
- set the loc of btn darkness to 144,196
- wait 60
- hide btn "darkness"
- set the hilite of btn darkness to false
-
- play "bird"
- tkshowpict "savingpict",10,27
- wait 120
- play click
- lock screen
- unlock screen
- end mouseUp
- --tkdopict "airinfopict,screen" ,73,135
- --show btn "hiliteman"
- --set the loc of btn hilite man to
-
-
- -- part 12 (button)
- -- low flags: 80
- -- high flags: 4000
- -- rect: left=78 top=188 right=204 bottom=212
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: darkness
- ----- HyperTalk script -----
- on mouseUp
- put "set the loc of btn darkness to"&&the loc of me&&return after card fld collectit
- end mouseUp
-
-
-
- -- part contents for background part 1
- ----- text -----
- Saving The Environment
-
- -- part contents for card part 9
- ----- text -----
-
- "Treat the Earth well; it was not given to you by your parents, it was lent to you by your children."
- Kenyan proverb